(graft_intervals_into_buffer): If SOURCE is null

and TREE is null, no need to call Fset_text_properties.

diff --git a/src/intervals.c b/src/intervals.c
index 3e970797ebe00840d516508d6e5af426f38c0fd7..46b1f9f31fdf78434c0ebbb713f9affa1225836a 100644 (file)
--- a/src/intervals.c
+++ b/src/intervals.c
@@ -1272,7 +1272,7 @@ graft_intervals_into_buffer (source, position, length, buffer, inherit)
   if (NULL_INTERVAL_P (source))
     {
       Lisp_Object buf;
-      if (!inherit)
+      if (!inherit && ! NULL_INTERVAL_P (tree))
        {
          XSET (buf, Lisp_Buffer, buffer);
          Fset_text_properties (make_number (position),